Вот это то что у меня получилось написать для ввода этих чисел. Но вот как теперь остальное сделать...и вообще имеет ли смысл ниже написанное.
Program variant_11;
Uses WinCRT;
var f:text;
a:string;
Begin
Assign(f,'f.txt');
ReWrite(f);
WriteLn('Vvedite chisls:');
ReadLn(a);
If (a='0') Then
Begin
WriteLn('net');
Erase(f);
Exit;
End
Else
begin
a:=a+' ';
Write(f,a);
End;
Repeat
Write('Ochered chislo:');
ReadLn(a);
If (a<>'0')
Then
begin
a:=a+' ';
Write(f, a);
end;
Until (a='0');
WriteLn('Ishod fail:');
Reset(f);
WhIle not eof(f) do
Begin
read(f,a);
Write(a);
End;
Close(f);
End.