Matematické Fórum

Ahoj,
s programováním a Pascalem začínám a potřeboval bych poradit s touto úlohou:
Na vstupu dstanete seznam celých čísel ukončených -1, která již do seznamu nepatří. Vypište největší z nich. Číslo bude alespoň jedno. Všechna čisla se vejdou do typu integer.

Napsal jsem toto, ale to asi bude částečně nesmysl:

program nejcislo;
var max,c:integer;
  begin
  read(max);
  read(c);
  if (c>max) then
     begin
       max:=c;     //kdy§ je c vŘtçˇ, tak c se st v  max
     end
  else
   if (c<max) then
   read(c);
   while (c <> -1) do
     begin
        max :=c;
     end;
  writeln(max);
end.


Děkuji za jakékoli rady.