Witam. Wiem, że problem może Wam się wydawać śmieszny ale desperacko szukam pomocy. Dostałem na zadanie napisać program i mam mało czasu.
Program ma liczyć ilość znaków w poszczególnych wierszach pliku a następnie wyświetlić w którym wierszy ile znaków było.
Nie wiem jak rozdzielić poszczególne wiersze. Jestem w stanie tylko ogarnąć program liczący wszystkie znaki ale nie wiem jak rozgraniczyć od siebie poszczególne wiersze.
uses crt;
var plik: text;
var znaki: integer;
var A: string;
begin
clrscr;
assign(plik, 'C:\plik.txt');
reset(plik);
znaki:=0;
repeat
readln(plik, A);
znaki:=znaki+length(A);
until eof(plik);
write(znaki);
readln;
end.