Исправьте прогу плиз, Матрицы.Диагонали.Строки. Опции

[Dev]

Бонжорно! Помогите пожалуйста: нужно исправить программу\или дописать(???)
Задание: Дана матрица 10 на 8 нужно транспонировать(сделал),записать в строки элементы главной диагонали и диагонали находящейся под главной. Вывести строки.
х-мм вроде простое задание а решыть нимагу(стыдна)

Program lab13var8;
uses crt;
var a:array[1..10,1..8] of real;
s1,s2:string;
s,i,j,k:integer;per:real;
Begin
clrscr;
for i:=1 to 10 do
for j:=1 to 8 do
begin
write('a[i,j]');
read(a[i,j]);
per:=a[i,j];
a[i,j]:=a[j,i];
a[j,i]:=per;
end;
if i=j then
read(a[i,j],s1);
if i-1=j-1 then
read(a[i,j],s2);
write(s1);
write(s2);
repeat until keypressed;
end.

Заранее спасибо.