Подсобите с операторами Паскаля...

[yurasta]

В общем, вот процедура, которая должна мне вывести список невыполненных заказов телеателье...при заполнении, в базу данных вбивается либо 'выполнен', либо 'не выполнен', как проверить условие выполнения? строка if a.pr= ?

Procedure list3(const g:tf);
var a: tss;
begin
writeln(‘список невыполненных заказов:’);
reset(g);
while not eof(g) do
begin
read(g,a);
if a.pr= ‘не выполнен’ then
Writeln (‘Наименование аппаратуры: ‘,a.name,' Заказчик: ',a.lastz);
Writeln ('Дата приёмки:', a.day,’/’,a.month,’/’,a.year,'.');
Writeln ('Мастер: ',a.lastm);
Writeln ('Стоимость ремонта:',a.st,'рублей');

end;
close(g);
end;