[burany]

pva, наметок почти и нет:


var f : text;
s : char;
begin
assign(f, 'C:\c20c.txt');
reset(f);
while not Eof(f) do
begin
read(f, s);
write(s);
end;
close(f);
end.


а также:


{function AnsiCompareStr(s2, s0 :string) : integer;}
var
s : string[18];
s1 : string[2];
begin
s := ' 1 12 23 24 25 36';
s1:= copy(s,17,2);
delete(s,17,2);
insert(s1,s,1);
writeln(s);
{AnsiCompareStr:=(s2, s0);}
end.


Как все это связать? Задача, ведь, подробно расписана.