Napisałem coś takiego:
Kod: Zaznacz cały
program najwiecejwlinii;
var plik:text;
aktualna:integer;
max:integer;
znak:char;
begin
max:=0;
assign(plik, 'C:\2.4.2\bin\i386-win32\plik.txt');
reset(plik);
while not eof(plik) do begin
aktualna:=0;
while not eoln(plik) do begin
read(plik,znak);
If (znak<='a') and (znak>='z') then aktualna:=aktualna+1;
end;
readln(plik);
If aktualna>max then max:=aktualna;
end;
close(plik);
writeln('liczba malych liter, to', max);
readln;
end.
Co jest nie tak?