Это твоя программа после обработки JCF. Пришлось только добавить строку program иначе JCF не обрабатывает.
Правда читабельнее выглядит?
Код
program Marka;
const
n = 3;
type
avto = record
mar, nom, fio: string
end;
var
a: array[1..n] of avto;
mark: string;
k, i: integer;
begin
for i := 1 to n do
begin
Write('Введите марку автомобиля: ');
readln(a[i].mar);
Write('Введите номер автомобиля: ');
readln(a[i].nom);
Write('Введите фамилию владельца: ');
readln(a[i].fio);
writeln;
end;
Write('Введите требуемую марку автомобиля: ');
Read(mark);
k := 0;
for i := 1 to n do
if a[i].mar = mark then
begin
writeln('ФИО: ', a[i].fio, '; ', 'Номер: ', a[i].nom);
k := 1;
end;
writeln;
if k = 0 then
Write('Нет автомобилей данной марки');
end.