Задача в Pascal. Нужна поддержка, есть наработки

Program PotrM; 
Type 
TPotrM = Record 
Date: String [4]; 
ShCzeh: String [6]; 
NameMat: String [20]; 
Potr: Real; 
End; 
Var 
PotrM: TPotrM; 
Kv, Mes, Rc: Integer; 
SMes: String; 
Begin 
// Ввод записи
Writeln ('Vvedite datu'); 
Readln (PotrM.Date); 
Writeln ('Kod Czeha'); 
Readln (PotrM.ShCzeh); 
Writeln ('Kod materiala'); 
Readln (PotrM.NameMat); 
Writeln('Potrebnoct v materiale'); 
Readln (PotrM.Potr);
 
Вот, что мне подсказали:
 
Type 
TPotrM = Record 
Date: String [4]; 
ShCzeh: String [6]; 
NameMat: String [10]; 
Potr: array[1..8] of byte; //потребность в материале 8цифр
End; 
Var 
PotrM: array[1..100] of TPotrM;//массив записей
i, j: byte;
Begin 
for i := 1 to 5 do begin
Writeln ('Vvedite datu'); 
Read (PotrM[i].Date); 
Writeln ('Kod Czeha'); 
Read (PotrM[i].ShCzeh); 
Writeln ('Kod materiala'); 
Read (PotrM[i].NameMat); 
Writeln('Potrebnoct v materiale'); 
for j := 1 to 8 do Read (PotrM[i].Potr[j]);
end;
...
end.

Type 
TPotrM = Record 
Date: String [4]; 
ShCzeh: String [6]; 
NameMat: String [10]; 
Potr: array[1..8] of byte; //потребность в материале 8цифр
End; 
Var 
PotrM: array[1..100] of TPotrM;//массив записей
i,n:byte;
Procedure Vvod(Var st:TPotrM);
Var j:byte;
Begin 
   Write('Vvedite datu: '); 
   Readln(st.Date); 
   Write('Kod Czeha: '); 
   Readln(st.ShCzeh); 
   Write('Kod materiala: '); 
   Readln(st.NameMat); 
   Writeln('Potrebnoct v materiale'); 
   for j := 1 to 8 do Read (st.Potr[j]);
end;
Begin
    write('Введите кол-во цехов: ');readln(n);
    For i:=1 to n do
     Vvod(PotrM[i]);
    readln;
End.