Привет всем!
Вот имеется прога по файлам:
Имеется текстовфй файл. Нужно поменять в файле максимальную строку на минимальную и наооборот.(Естесственно записать всё это в файл).
Максимум и минимум в файле нашёл. Но как поменять? И записать?
Пробовал через write(f,x) пишет Runtime 105 error! Подскажите плиз!
Код
program kontr1;
uses wincrt;
type myfile=text;
var f:myfile; a,max,min1:string;
min:byte;
begin
assign(f,'e:bptimka1.txt');
reset(f);
max:='';
min:=255;
while not eof(f) do
while not eoln(f) do
begin
readln(f,a);
if length(a)>length(max) then
max:=a;
if length(a)<min then
begin
min:=length(a);
min1:=a;
end;
end;
writeln(max);
writeln(min1);
close(f);
end.
uses wincrt;
type myfile=text;
var f:myfile; a,max,min1:string;
min:byte;
begin
assign(f,'e:bptimka1.txt');
reset(f);
max:='';
min:=255;
while not eof(f) do
while not eoln(f) do
begin
readln(f,a);
if length(a)>length(max) then
max:=a;
if length(a)<min then
begin
min:=length(a);
min1:=a;
end;
end;
writeln(max);
writeln(min1);
close(f);
end.