Динамические массивы

program lab1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
 
type N = array of integer;
     D = array of array [0..2] of integer;
 
procedure Change(var a:N; b:D);
var k, n, i, j, gold, silver, bronze: integer;
    s: string;
begin
  SetConsoleOutputCP(1251);
  write('Введите количество стран_');
  readln(n);
   SetLength(a, n);
   SetLength(b, n);
    writeln('Введите названия стран и кол-во медалей(золото, серебро, бронза)_');
     for k:=0 to n do
      read(s);
        for i:=0 to n do
         begin
           for j:=0 to 2 do
            begin
              read(gold, silver, bronze);
            end;
             writeln;
         end;
   
end;
 
  //m a i n
var aa: N;
    bb:D;
begin
   Change(aa,bb);
end.

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Windows;
type St = array of string;
     Md = array of array [1..3] of integer;
procedure Change(var a:St; var b:Md; var n:integer);
var j, gold, silver, bronze: integer;
    s: string;
begin
n:=0;
writeln('Введите названия стран, можно с повторениями, конец ввода пустая строка');
repeat
write('Введите название страны: ');
readln(s);
if s<>'0' then
 begin
  writeln('Введите кол-во медалей(золото, серебро, бронза)');
  readln(gold,silver,bronze);
  if n=0 then
   begin
    inc(n);
    SetLength(a,n);
    SetLength(b,n);
    a[n-1]:=s;
    b[n-1,1]:=gold;
    b[n-1,2]:=silver;
    b[n-1,3]:=bronze;
   end
  else
   begin
    j:=0;
    while (j<n)and(a[j]<>s) do inc(j);
    if j=n then
     begin
      inc(n);
      SetLength(a,n);
      SetLength(b,n);
      a[n-1]:=s;
      b[n-1,1]:=gold;
      b[n-1,2]:=silver;
      b[n-1,3]:=bronze;
     end
    else
     begin
      inc(b[j,1],gold);
      inc(b[j,2],silver);
      inc(b[j,3],bronze);
     end;
    end;
  end;
until s='0';
end;
 
  //m a i n
var aa: St;
    bb: Md;
    n,i:integer;
begin
  SetConsoleCP(1251);
  SetConsoleOutPutCp(1251);
  Change(aa,bb,n);
  for i:=0 to n-1 do
  writeln(aa[i],' ',bb[i,1],' ',bb[i,2],' ',bb[i,3]);
  readln
end.