Написать программу подведения итогов олимпийских игр

program Olp;
uses
 crt;
Const
N=10;
 str:array[1..N] of string[9]=('Финляндия' , 'Канада*' , 'Франция' , 'США' , 'Норвегия' , 'Япония' , 'Корея' , 'Австрия','Китай','Россия');
var
 res:array[1..N+1, 1..5] of integer;
 i,j:integer;
 max:integer;
 buf:string[9];
begin
clrscr;
 writeln( 'Итоги Олимпийских игр');
 writeln('Введите в одной строке кол-во золотых,серебряных,бронзовых медалей:' );
  For i:=1 to N do
   begin
   write(str[i], '->');
   read(res[i,1],res[i,2]);
   readln(res[i,3]);
   end;
  For i:=1 to N do
   begin
   res[i,4]:= res[i,1]+res[i,2]+res[i,3];
   res[i,5]:= res[i,1]*7+res[i,2]*6+res[i,3]*5;
   end;
    max:=i;
     For i:=1+1 to N do
      if res[j,5]>res[max,5] then
       max:=j;
       buf:=str[i];
       str[i]:=str[max];
       str[max]:=buf;
        For i:=1 to 5 do
        begin
        res[N+1,j]:=res[i,j];
     end;
     For j:=1 to 5 do
      begin
      res[i,j]:=res[max,j];
     end;
    For i:=1 to 5 do
     begin
     res[max,j]:=res[N+1,j];
    end;
    writeln;
    writeln('Итоги Олимпиады');
    writeln('Страна*':12, 'Золото':8, 'Серебро':8, 'Бронза':8, 'Всего':8, 'очков':8);
    For i:=1 to N do
   begin
    write(i:2,str[i]:10);
     For j:=1 to 5 do
     write(res[i,j]:8);
     writeln;
     end;
     readln;
end.