Напишите пожалуйста в паскале АВС программы

решение на Turbo Pacal 7.0 (pascal ABC = Shift+F9)

uses crt;
var case_num, i, j: integer;
ch: char;
const n=19;
begin
clrscr;
textcolor (green);
writeln (' for Exit press "0"... ');
textcolor (white);
writeln (' введите любой символ для заполнения матрицы (* или 1)... ');
readln(ch);
while ch <> '0' do
begin
clrscr;
writeln (' Выберите варианты заполнения матрицы 1, 2, 3, 5, 6 ...');
readln (case_num);
case case_num of
{задача 1}
1 : begin
for i:=1 to n do
begin
for j:=1 to n do
if i=j then write (ch: 2)
else write ('0':2);
writeln;
end;
repeat until keypressed;
end;
{задача 2}
2: begin
for i:=1 to n do
begin
for j:=1 to n do
if (i+j=n+1) or (i=j) then write (ch: 2)
else write ('0':2);
writeln;
end;
repeat until keypressed;
end;
{задача 3}
3: begin
for i:=1 to n do
begin
for j:=1 to n do
if ((j >=i) and (j < n-i+2)) or ((j >= n-i+1) and (j <= i)) then write (ch: 2)
else write ('0':2);
writeln;
end;
repeat until keypressed;
end;
{задача 5}
5: begin
for i:=1 to n do
begin
for j:=1 to n do
if i=j then write (i: 2)
else write ('0':2);
writeln;
end;
repeat until keypressed;
end;
{задача 6}
6: begin
for i:=1 to n do
begin
for j:=1 to n do
if (i+j)=n+1 then write (n-i+1: 2)
else write ('0':2);
writeln;
end;
repeat until keypressed;
end;
0: exit;
else
begin
writeln (' Допущена ошибка при вводе ...for Exit press "0"...');
repeat until keypressed;
end;
end;
end;
writeln;
end.