Program prečíta súbor ziaci.txt a zistí iniciáli mien

{ SUBOR_IN.PAS                                                      }
{ Program precita subor ziaci.txt a zisti iniciali mien.            }
{ Inicialy zapise do suboru inicialy.txt.                           }
{                                                                   }
{ Author: Juraj Pupak                                               }
{ Date  : 27.10.2006                           http://www.trsek.com }
 
program Inicialy;
uses crt;
 
Procedure ZapisSubor(subor : string; vytvor : Boolean; moj_text : string);
  var
    Tsubor : Text;
begin
  Assign(Tsubor,subor);
  IF vytvor = True THEN
    begin
      Rewrite(Tsubor);
    end else
      begin
        Append(Tsubor);
      end;
  writeln(Tsubor,moj_text);
  close(Tsubor);
end;
 
var
   Tsubor_1 : Text;
   Name,pismena : string;
   Cstr,Cstr_1 : string;
   i,dlzka_mena : integer;
   Vytvor : Boolean;
 
begin
  clrscr;
  writeln('Program precita subor ziaci.txt a zisti iniciali mien.');
  writeln('Inicialy zapise do suboru inicialy.txt.');
 
  Assign(Tsubor_1,'ziaci.txt');
  Reset(Tsubor_1);
  Vytvor := True;
 
  while not Eof(Tsubor_1) Do
    begin
      Readln(Tsubor_1,Name);
      dlzka_mena := length(Name);
      For i := 1 To dlzka_mena - 1 Do
        begin
          IF Name[i] = ' ' THEN
            begin
              Cstr_1 := copy(Name,i + 1,1);
            end;
          Cstr := Name[1];
        end;
      pismena := Cstr + Cstr_1;
      ZapisSubor('inicialy.txt',Vytvor,pismena);
      Vytvor := False;
    end;
  readln;
end.