записи, ето не мне а моей девушке Опции

[sasha]

я сам будущий медик. пожалуйста помогите , она сделала уже 14 задач сама ей осталось две а здавать надо в понедельник крайним случаем во вторник. вот задача:
Количество мячей, забитых и пропущенных футбольной командой в каждой из 22 игр,записано в масиве элементами которого являются величины типа “запись”
А)для каждой проведенной игры напечатать словесный резуль-тат:”выигрыш”,”ничья”или”проигрыш”.
Б)определить кол-во выигрышей, кол-во ничьих и кол-во проигрышей дан-ной команды.
В)определить общее число очков, набранных командой (за выигрыш дается 3 очка, за ничью – 1,за проигрыш – 0).

[Lapp]

Количество мячей, забитых и пропущенных футбольной командой в каждой из 22 игр,записано в масиве элементами которого являются величины типа “запись”
А)для каждой проведенной игры напечатать словесный резуль-тат:”выигрыш”,”ничья”или”проигрыш”.
Б)определить кол-во выигрышей, кол-во ничьих и кол-во проигрышей дан-ной команды.
В)определить общее число очков, набранных командой (за выигрыш дается 3 очка, за ничью – 1,за проигрыш – 0).

Вот, смотри, я написал тебе функциональную часть. Сможешь доделать? Посмотрим, на что ты способен для любимого человека..

var
  Games: array[1..22]of record
    Rival: string;
    Kicked,Let: integer
  end;
...
Win:=0;
Defeat:=0;
Draw:=0;
for i:=1 to 22 do with Games[i] do begin
  Write('Game vs. ',Rival,': ');
  if Kicked>Let then begin
    WriteLn('win');
    Inc(Win)
  end
  else if Kicked<Let then begin
    WriteLn('defeat');
    Inc(Defeat)
  end
  else begin
    WriteLn('Draw');
    Inc(Draw)
  end
end;
WriteLn('wins: ',Win,'   defeats: ',Defeat,'   draws: ',Draw);
WriteLn('Total score: ',Win*3+Draw);