Все лабораторные работы по паскалю / 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.