прочитайте внимательно мой самый первый пост...
Нужно не на делфи а на паскале (Turbo Pascal или Free Pascal). Это раз. Два - сравнениее тут идет не по строкам а по dat2 (array[1..3] of integer
. Хотя и строки тоже можно сравнивать (это так, к слову).