Решение задачи в Pascal!

[Лариск]

имеется документ, который содержит информацию по потребности материалов на текущий период. Документ содержит следующие реквизиты:
1) дата, представленная в виде четырёх символов. Первые два символа определяют месяц. Третий и четвёртый символ определяют год.
2) код цеха, представленный в виде шести символов
3) код материала, представленный в виде десяти символов
4) потребность в материале, представленная в виде 8 цифр, две из которых определяют дробную часть.
Требуется разработать программный код, включающий процедуру, которая обеспечивает формирование массива записей, относящихся к заданному цеху

Я не понимаю, что от меня требуется, вот, что я сделала

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);

Правильно ли и что делать дальше? Очень срочно нужен ответ!

[eoln]

Почти

4) потребность в материале, представленная в виде 8 цифр, две из которых определяют дробную часть.

Не знаю как должны храниться эти цифры, но можно либо longint (он может вместить в себя 8 цифр, а получить их потом можно путём целочисленного деления), либо определить байтовый массив

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.

[Лариск]

Спасибо большое!

3) код материала, представленный в виде десяти символов
я сначала написала NameMat: String [10]
но потом увидела у него в учебнике NameMat: String [20] , правда я не знаю почему [20]

[eoln]

Вероятно, просто опечатка была. Ошибки от этого не будет, будут только лишние данные, которые придётся отсекать.
Либо там эти символы в виде иероглифов, вроде как юникод для паскаля :D

[Лариск]

Мне тут ещё подсказали, что можно привязать все поля к цеху, а тут только поле потребности в материале.
И дату целочисленной сделать, но раз в учебнике так, значит, я думаю, можно оставить)

[Алексей_2012]

Требуется разработать программный код, включающий процедуру, которая обеспечивает формирование массива записей, относящихся к заданному цеху

именно массива, нужно объявить массив типа запись как написано у eoln

var
a:array[1..1000] of TPotrM

а вот вам нужно создавать файл с документом? Если да, то какой файл, текстовый, или файл записей?
код целиком всей задачи постараюсь предоставить в ближайшее время, вам когда сдавать?

[Лариск]

Учитель сказал, что от меня требуется предоставить распечатку программного кода и распечатку результатов выполнения в Pascal Больше он ничего не говорил. Эта задача с экзаменационного билета по информатике и программированию за 1 семестр 1 курса, не думаю, что там могут так усложнить задание, хотя ему по 1.5 года сдают некоторые, а у меня только одна попытка. Сдать надо в среду или четверг, когда у него время будет.

[Алексей_2012]

так, хорошо, тогда попытаюсь упростить программу, но я так понимаю нужно ввести данные и вывести их на экран...

[Лариск]

Что-то наподобие одной из этих задач. Ты ещё учишься?

[Алексей_2012]

оу, ну я могу завтра прислать то что получилось, но не уверен что это полностью тебя устроит, если что сам сможешь доработать?