С клавиатуры вводятся 10 чисел. Найти минимальное. (Цикл с параметрами,Турбо Паскаль) Спасибо.

uses crt; var a,b,c,mn,mx:integer; begin clrscr; writeln('Вводите по 3 целых числа, окончание ввода все числа равны'); repeat write('a=');readln(a); write('b=');readln(b); write('c=');readln(c); if(a<>b) then  begin   if a>b then mx:=a else mx:=b;   if c>mx then mx:=c;   if a