Все лабораторные работы по паскалю / 8 лаб. Модульное программирование / modul02

unit modul02;

interface function kolstrok:integer;
procedure nachalo;
//procedure cifr;

implementation

function kolstrok:integer;
var t: text; name: string; kstr:integer;
begin
write('Введите имя файла (с расширением): ');
read(name);
assign(t, name);
reset(t);
kstr:=0;
while not eof(t) do
begin
readln(t);
kstr:=kstr+1;
end;
kolstrok:=kstr;
close(t);
end;

procedure nachalo;
const c=['0','1','2','3','4','5','6','7','8','9'];
var s: string; t1,t2: text; name1,name2: string;
begin

write('Введите имя файла, из которго считываем(с расширением): ');
read(name1); assign(t1, name1); reset(t1);

readln;

write('Введите имя файла, в который выводим нужные строки(с расширением): ');
read(name2); assign(t2,name2); rewrite(t2);

while not eof(t1) do
begin
readln(t1,s);
if s[1] in c then writeln(t2,s)
end;
close(t1);
close(t2);
end;


procedure cifr;
const c=['0','1','2','3','4','5','6','7','8','9'];
var t3,t4: text; name3,name4,str: string; k,i: integer; l: boolean;
begin

write('Введите имя файла, из которго считываем(с расширением): ');
read(name3);
assign(t3, name3);
reset(t3);

readln;

write('Введите имя файла, в который выводим нужные строки(с расширением): ');
read(name4);
assign(t4, name4);
rewrite(t4);

while not eof(t3) do
begin
readln(t3,str);
i:=0;
l:=false;
repeat
inc(i);
if str[i] in c then l:=true;
until (l=true) or (i=length(str));
if l=false then writeln(t4,str);
end;
close(t3);
close(t4);
end;


end.