Известны максимальные скорости 20 моделей легковых автомобилей. Все значения выражены в километрах в час. Напечатать названия моделей, у которых максимальная скорость превышает 180 км/ч — Pascal(Паскаль)

uses crt;
type auto=record
          mdl:string[20];
          skr:integer;
          end;
var a:array[1..100] of auto;
    n,i,k:byte;
begin
clrscr;
write('Количество моделей n=');
readln(n);
writeln('Введите названия моделей и их максимальные скорости:');
for i:=1 to n do
 begin
  writeln('Запись ',i);
  write(' Модель: ');readln(a[i].mdl);
  write(' Скорость: ');readln(a[i].skr);
 end;
clrscr;
writeln('Модели, чья макс. скорость больше 180 км/ч');
k:=0;
for i:=1 to n do
if a[i].skr>180 then
 begin
  k:=1;
  writeln(a[i].mdl);
 end;
if k=0 then write('Таких моделей нет!');
readln
end.