Как написать, что S – это целые числа разделенный пробелами?
Var
t1, t2: text;
S: string;
begin
assign (t1, 'C:\t1.txt');
rewrite(t1); writeln;
readln(S);
while S<0 do begin
writeln(f,S);
writeln('Ввод новой строки для выхода - Enter');
readln(S); end;
close(t1);
assign(t2, 'C:\t2.txt');
rewrite(t2); reset(t1);
readln(t1,S);
while
NOT eof(t1) do
begin
readln(t1, S);
writeln(t2, S);
If NOT eof(t1) then
readln(t1, S);
end;
close(t2); end.
и если не считать косяка с S, то в остальном есть ошибки?