помогите найти ошибку в задаче по паскалю

Компьютер принимает значение минут и секунд, поэтому считываем минуты и секунды. Нужно сравнивать каждое число, для а есть, остается добавить сравнение для числа b и числа c.

program z5;
uses crt;
var a, b, c, amin, asec, bmin, bsec, cmin, csec:integer;
begin
read (amin, asec, bmin, bsec, cmin, csec);
a := amin*60+asec;
a := amin*60+asec;
a := amin*60+asec;
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>a) and (c>b) then write(c);
end.

var a,b,c,y:real;
begin
readln(a,b,c);
if a>b then if a>c then y:=a else y:=c else if b>c then y:=b else y:=c;
writeln(y); readln
end.

Секунды идут как дробная часть вводимых чисел.

Мне вот что интересно. . зачем 3 значения считывать, если вводятся только минуты и секунды? Т. е. это read(a,b);
дальше есть такие варианты действий:
1) сделать двумерный массив. i-коээфециент это пловец будет, а j это соответственно минуты и секунды.
т. е. выглядеть будет так:
№пловца минуты секунды
№ пловца минуты секунды
....и т. д. (это образная схема для представления конструкции массива) , дальше можно перевести минуты в секунды по простой формуле кол-во минут*60 и сложить с секундами и сравнить со след ячейкой преобразованной тем же способом. и определить лучшие\худшие результаты.
2) Краб предложил наиболее простую запись, но нужно помнить, что после точки идут секунды и как-то не красиво будет время типа 3.180, т. е. 6 минут.

Будут вопросы обращайся на почту или в личку

program z5;
uses crt;
var a,b,c:integer;
begin
read (a,b,c);
if a>b then write (a) else If a>c write (a) else (c);
end.

вроде так, попробуй

юзай record