Приложение:
program ex3; Uses WinDos; function TextSize(Name:string):integer; var f:text; s:array[1..256] of char; DirInfo : TSearchRec; i,n:integer; begin n:=-1; FindFirst(@Name[1], 0, DirInfo); if DosError=0 then {если файл найден} begin n:=0; assign(F,Name); reset(F); {считываем файл} while not EOF(F) {пока файл не кончился} do begin readln(F); n:=n+1; end; { считаем строки} close(F); end; TextSize:=n; end; var n:string; i:integer; begin for i:=1 to 3 do begin write('Введите имя файла '); readln(n); writeln('В Файле ',Textsize(n), ' строк'); end; readln; end.