W lini prostej...

 uses
  Forms;

TYPE tablica = ARRAY [1..10] of integer;
     oceny = ARRAY [1..17] of integer;
     przedmioty = ARRAY [1..17] of string;
{$R *.res}

procedure ustawprzedmioty(var p:przedmioty);
begin
   p[1]:='J. Polski';
   p[2]:='J. Angielski';
   p[3]:='J. Niemiecki';
   p[4]:='Matematyka';
   p[5]:='W-F';
end;

procedure ustawoceny(var o:oceny; p:przedmioty; rozmiar:integer);
var i:integer;
begin
   for i:=1 to rozmiar do
     begin
        writeln('Podaj ocene z ',p[i],':');
        readln(o[i]);
     end;
end;

procedure wyswietlcenzurke(p:przedmioty; o:oceny; rozmiar:integer);
var i:integer;
    suma:integer;
begin
   suma:=0;
   writeln('Przedmioty          Oceny');
   for i:=1 to rozmiar do
   begin
     writeln(p[i],'            ',o[i]);
     suma:=suma+o[i];
   end;
  writeln('Srednia ocen:' ,suma/rozmiar:3:2);
end;

procedure wczytaj(var t:tablica; rozmiar:integer);
var i:integer;
begin
   //wpis do tablicy danych...
   for i:=1 to rozmiar do
    begin
       writeln('Podak ',i,' -ty element');
       readln(t[i]);
    end;
end;

procedure wyswietl(var t:tablica; ile:integer);
var i:integer;
begin
  //odczyt do tabllicy danych...

    for i:=1 to ile do
      write(t[i],' ');
   writeln;
end;

procedure ustawlosowo(var t:tablica; rozmiar:integer);
var i:integer;
begin
  randomize;
    for i:=1 to rozmiar do
    begin
      t[i]:=1+random(6);
    end;
end;

var t:tablica;
    i:integer;
    o:oceny;
    p:przedmioty;
BEGIN
  ustawprzedmioty(p);
  ustawoceny(o,p,5);
  wyswietlcenzurke(p,o,5);
  readln;
END.
```delphi
<code class="delphi">

Writeln(p[i], #9, o[i]);

p[5]:= 'W-F' + #9;