Лабораторный практикум по информатике. Мухина И.Н - 60 стр.

function DeSpace (var s:string):string;
{удалить лишние пробелы из строки s}
var p:integer;
begin
 repeat
  p:=pos(' ',s);
  if p>0 then delete (s,p,1);
 until p=0;
 if s[1]=' ' then delete (s,1,1);
 if s[length(s)]=' ' then delete (s,length(s),1);
 DeSpace:=s;
end;

procedure ReadData (var f:text; var rows:integer);
{Чтение данных из файла с дескриптором f}
{Вернет количество прочитанных строк через rows}
var s:string;
    n,code,i,p:integer;
begin
 i:=1;
 while not eof (f) do begin
  readln (f,s);
  s:=DeSpace(s);
  if length(s)>0 then begin
   p:=Pos(' ',s);
   tovar[i]:=Copy (s,1,p-1);
   Delete (s,1,p);
   ostatok1[i]:=Chislo(s);
   prihod[i]:=Chislo(s);
   rashod[i]:=Chislo(s);
   i:=i+1;
   if i>max then begin
    WriteLn ('Таблица заполнена до предела! ',
     'Для ввода большего количества');
    WriteLn ('данных увеличьте константу Max',
     ' в программе');
    Break;
   end;
  end;
  rows:=i-1;


                        60