записи и строки

[perojenko]

помогите пожалуйста .
написать програму на паскале
1. создать массив записей (кол-во n)
2. Подсчитать для каждой страны общее кол-во медалей
3. Список |Страна|Золота|Серебро|Бронза|Общее кол-во|
|_______|______|_______|______|____ _______|
4. Стрна набравшая ниабольшее колличество медалей
вывод ( |Страна|кол-во медалей|)
5. наибольшее кол-во золота
вывод ( |Страна|золотых|)

[capta1n]

вот формирование: сейчас времени нет, если никто ничего не напишет - допишу:

program pascall;
const
 n = 5;
type
 rec = record
        country : string[15];
        gold : byte;
        silver : byte;
        bronze : byte;
        quan : byte
       end;
var
 r : array [1..n] of rec;
 i : byte;
begin
end.

[capta1n]

program pascall;
const
 n = 5;
type
 rec = record
        country : string[15];
        gold : byte;
        silver : byte;
        bronze : byte;
        quan : byte
       end;
var
 r : array [1..n] of rec;
 i,k,j : byte;
begin
  {4tenie faila zapisey ili vvod dannix v massiv s konsoli}
  for i:=1 to n do
   with r[i] do quan:=gold+silver+bronze;
  k:=1;
  j:=1;
  for i:=2 to n do
  begin
    if r[i].quan>r[k].quan then k:=i;
    if r[i].gold>r[j].gold then j:=i
  end;
  writeln (r[k].country,'|',r[k].quan);
  writeln (r[j].country,'|',r[j].gold);
  readln
end.