Вводится список марок автомобилей (массив А[1..100]) и их цена (массив С[1..10]).Указать марку самого дорогого и самого дешёвого автомобиля — Pascal(Паскаль)

uses crt;
var a:array [1..5] of string;
c:array [1..5] of integer;
i,max,min,n,m:integer;
begin
clrscr;
for i:=1 to 5 do
 begin
  readln(a[i]);
  readln(c[i]);
 end;
max:=c[1];
min:=c[1];
for i:=1 to 5 do
 begin
  if c[i]>max then
     begin
       max:=c[i];
       n:=i;
     end;
  if c[i]<min then
     begin
       min:=c[i];
       m:=i;
     end;
 end;
 
writeln('samij gorogoi ', a[n]);
writeln('samij deshovij ', a[m]);
readln;
end.

uses crt;
var
auto:array[1..10] of string;
 cost: array[1..10] of real;
 i,n,min,max:byte;
 
 BEGIN
    repeat
 writeln(' Введите количество автомобильных марок ');
  readln(n);
   until n in[1..10];
  
  for i:=1 to n do
  begin
   writeln('введите название ',i,'- ой марки');
    readln(auto[i]);
                   end;
 
     for i:=1 to n do
  begin
   writeln('введите стоимость ',i,'- ой марки');
    readln(cost[i]);
                   end;
                   
    min:=1;
 
     for i:=1 to n do
      if cost[i]<cost[min] then min:=i;
      
      max:=1;
 
     for i:=1 to n do
      if cost[i]>cost[max] then max:=i;
        clrscr;
      writeln(' самая дорогая машина это - ', auto[max], ' ее стоимость: ', cost[max]:8:3);
      writeln;
      writeln(' самая дешевая машина это - ', auto[min], ' ее стоимость: ', cost[min]:8:3);
          readln;
      END.