Блок-Схемма

procedure verhreg(var cex1: string);
var i: integer;
begin
  for i:=1 to length(cex1) do cex1[i]:=Upcase(cex1[i]);
end;
 
 
procedure osnovna(var f: text);
var
  i, count: integer;
  sum: longint;
  zaput: string;
  zp: st;
 
begin
  write('Vvedit  cex:  '); readln(zaput);
  verhreg(zaput);
 
  count := 0; sum := 0;
 
  writeln('------------------------------------------');
  writeln('| PRIZVUCHe.I.P  |   CEX   |  ZARPLATA   |');
  writeln('------------------------------------------');
 
  while not eof(f) do
  begin
    readln(f, zp.pri, zp.cex, zp.zarp);
 
    for i:=length(zp.cex) downto 1 do
      if zp.cex[i] in [' '] then delete(zp.cex,i,1);
    if zaput = zp.cex then
    begin
      gotoXY(1,whereY);write(#186,' ',zp.pri);
      gotoXY(18,whereY);write(#186 ,zp.cex);
      textcolor(yellow);
      gotoXY(28,whereY);write(#186,zp.zarp:7);
      gotoXY(42,whereY); writeln(#186);
 
      inc(count); inc(sum, zp.zarp);
    end;
  end;
 
  if count > 0 then
  begin
    writeln('------------------------------------------');
    gotoxy( 1, wherey); write(#186 + ' ', count);
    gotoxy(18, wherey); write(#186);
    gotoxy(28, wherey); write(#186, sum:7);
    gotoXY(42, whereY); writeln(#186);
    writeln('------------------------------------------');
  end
  else
   textcolor(red);
   writeln('erro:INFO PRO',zaput,'NEZNAIDENO');
end;}
 
 
 
 
Procedure Add;  {Процедура Добавления Записи}
var 
  Zp:st;
begin
 append(f);
 for i:=1 to 2 do // Столько записей, сколько тебе нужно
     begin
        writeln('pri:');readln( zp.pri);
        writeln('cex:');readln( zp.cex);
        writeln('zar:');readln( zp.zarp);
        writeln(f, zp.pri,' ', zp.cex,' ', zp.zarp);
     end;
end;
end;