in phần tử của ma trận theo dạng xoắn ốc trên Pascal. Em đang cần gấp ạ !!!!

[DuongKienHuy]

cho 1 ma trận bất kì, hãy in các phần tử của ma trận theo hình xoắn ốc (chỉ xài các cấu trúc lặp và if trong quá trình in)
vd:
...Input
20__8__14__32
3___22_19__56
5___38_50___8
18__6__42___2

---> Output
20-8-14-32-56-8-2-42-6-18-5-3-22-19-50-38

Em cảm ơn nhiều ạ

[mecu]

ban xem tham khao nhe
#include <bits/stdc++.h>
using namespace std;
int main()
{
int a[1000];
int b[100][100];
int i,j,t,n,c;
cin >> n; // doc so phan tu

for (i=1;i<=n;i++) { a[i]=rand()%15; cout << a[i]<< " "; }
cout << endl;
cin >> c; // so cot
int ch,h,cc;
i=0;
// h la so hang
// c la so cot
for (h=1;h<=n/c;h++)
{
for (cc=1;cc<=c;cc++)
{
i++;
b[h][cc]=a[i];
}
}
ch=c;
for (h=1;h<=n/c;h++)
{
if (h%2!=0)
{
for (cc=1;cc<=c;cc++)
cout << b[h][cc] << " ";
cout << endl;
} else
{
for (cc=1;cc<=c;cc++)
cout << b[h][ch-cc+1] << " ";
cout << endl;
}
}
}

[DuongKienHuy]

anh có code trên free pascal không ạ?
và chỉ sử dụng lệnh for và if thôi ạ
nói thật em cũng mới chỉ học THPT