Отсортировать структуры (Паскаль)

[Traus]

Сразу говорю я паскаль-краб, так что не ругаться
Вообщем нужно написать программку шестью разными способами на паскале, прошу помочь хотя бы с первым, поможете с остальными, буду нереально благодарен)) Прошу обратить внимание, что в первом варианте нужно сделать программку без процедур, только с помощью двумерных массивов

ЗАДАЧА:

Дан список сотрудников лаборатории(10 человек) в виде
ФАМИЛИЯ ДОЛЖНОСТЬ
15 симв. 10 симв.
Иванов ст.инженер
Петрова техник
Возможные должности : инженер, ст. инженер, техник, вед. инженер.
Данные в одной строке отделяются друг от друга пробелами.
Расположить элементы списка в порядке “возрастания “ должности от "техника" до "вед.инженера" и вывести в выходной файл.


Условия выполнения задания
1.Все исходные данные вводятся из входного текстового файла.
2.В выходной текстовый файл выводится как вся введенная информация , так и полученный результат.
3.Задание выполняется в виде 6 различных программ , и только первая программа выполняется без процедур.
4.Одна и та же информация во входном файле рассматривается как различная структура данных и вводится по-разному в оперативную память., с целью освоения работы с различными структурами данных. Кроме того, необходимо использовать процедуры с соблюдением требования наибольшей независимости по данным этих процедур друг от друга. Поэтому использование глобальных переменных недопустимо.

Таким образом эти 6 вариантов одного и того же задания предстоит выполнить с использованием:
1.Двумерных символьных массивов, текстовых файлов и без процедур;
2.С массивами STRING, процедурами и текстовыми файлами;
3.С массивами RECORD, процедурами, текстовыми и типизированными файлами и процедурами. Типизированный файл формируется в этой же программе из текстового , а затем из него происходит чтение .
4.С модулями (варианты 2или 3 переделываются на модульный);
5.С однонаправленными линейными списками (каждая строка исходного текстового файла рассматривается как элемент списка), процедурами и текстовыми файлами;
6.С рекурсией (любой из вариантов 2-4 переделывается на рекурсивный, поскольку везде в них есть циклы , которые можно всегда выполнить как рекурсивные процедуры).

Вот, что я пока сделал:
(А-массив из 10 фамилий и должностей напротив
В-массив из 4 должностей поставленных в порядке возрастания)

program lt1;
type
t=array [1..20] of char;
tt=array [1..10] of t;
tb=array[1..10] of char;
ttb=array[1..4] of tb;
  var
  A:tt;
  B:ttb;
  i,j:byte;f:text;
Begin
assign(input, 'A.pas');                  
reset(input);
assign(f, 'B.pas');
reset(f);
assign(output, 'res1.out');
rewrite(output);
  For i:=1 to 10 do
    Begin
        for j:=1 to 20 do
      begin
      read(A[i,j]);
           write(A[i,j]);
      end;
     writeln;
     readln
    end;
    for i:=1 to 4 do
   Begin
    For j:=1 to 10 do
     Begin
     read(f,B[i,j]);
      write(B[i,j]);
     End;
      writeln;
      readln(f)
   end;
   close(f);
     close(input);

___________
1) Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.


2) Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)

Не забывайте об этом!

Модератор.