посколь

[olo)LOLO]

      if (age>x) and (diag=y) then
         writeln('фамилия: ',sur);

а это не оно?

[Kant]

ну это будет выводить фамилии в консоль

Если хочешь вывод в текстовый файл, то тебе надо будет завести переменную типа text, которая является текстовым файлом.

Например tf:text;

к нему уже тогда делаешь assign, reset и с помощью writeln(tf, твои фамилии); записываешь в файл

 

 

[olo)LOLO]

ну так и надо, что бы выводился список пациентов удовл. условию прямо в консоли. но ничо не происходит

[Kant]

может просто никто не удовлетворяет условию 

поставь брейкпоинт на строке с выводом или чуть повыше где-нибудь, запускай и смотри, что происходит