Assign(f, 'Name_f');

                                ReWrite(f);

                                     Reset(f);

                                     Close(f);

                                     Append(f);

  Assign(f1,'File1.dan');   { ��������� ��������� f1,  ��� �����: File1. dan }
  ReWrite(f1);                  { ������� ���� ��� ������ � ������ ��������� }
  Writeln(f1,'�������� "X","Y"' );                      { ������ ������ }         
  For i:= 1 to N do
    begin          
      X:= 0.5*i;
      Y:= Ln(X);                      { ������ ������� �������� ���������� }
      write(f1, X:6:2, Y:10:4);       { �������� ������ � ���� File1. dan }
      If i mod 5 = 0 then writeln(f1)               { �������� ������ #13 }
    end;      
  Close(f1);                              { ������� ���� � ������ ��������� }    
  Assign(f2,'File1.dan');     {==========------------------------------------}  
  Reset(f2);                   { ������� ���� ��� ������ �� ������ ��������� }
  Readln(f2);                              { ���������� ������ ������� }
  For i:= 1 to N do
    begin            
      read(f2, a[i], b[i]);           { ������� ������ � ������� "A" � "B" } 
      If i mod 5 = 0 then readln(f2)                  { ������� ������ #13 }
    end;               
Close(f2);                             { ������� ���� �� ������ ��������� }

var
  c: char;   j, i:  word;   
  s: array[1..10] of string[12];
  a: array[1..10, 1..6] of word;
  f1, f2: text;
BEGIN
  assign(f1, 'F1.txt');  reset(f1);
  assign(f2, 'F2.txt');  rewrite(f2);
  for i:= 1 to 10 do
    begin
      read(f1, s[i]);                { ���������� ������ }
      for j:= 1 to 6 do read(f1, a[i,j]);           { ���������� ����� ����� }
      readln(f1)                           { ���������� ������� ����� ������ }
    end;
  for c:= '�' to '�' do                         { ���� �� �������� �������� }
    for i:= 1 to 10 do  
      if s[i,1] = c then
        begin  
          write(f2, s[i]);   { ������ ����� � ���������� ������� ������ �������� }
          for j:= 1 to 6 do write(f2, a[i,j]:2);          { ������ ����� ����� } 
          writeln(F2)
        end;
  close(f1);
  close(f2);  
END.

			��������  5  4  4  5  4  3
			�����     4  5  3  4  3  4   

assign(f1, 'FF1. t');  reset(f1);
assign(f2, 'FF2. t');  rewrite(f2);

while not EoF(f1) do begin read(f1,c); {��������� ���������� ���� Char }
 if c <> #13 then c:=pred(c); write(f2,c)  {�������� � ������� �� ����� }
end;

         GetFattr(f, af);

         SetFattr(f, af);

GetFattr(f,af); If (af and ads) = ads then SetFattr(f,af-ads);

GetFattr(f,af);  SetFattr(f, af or ads);

—одержание

    ”чебник по ¤зыку Pascal          Ћабораторные работы по программированию          —правочник