Для рисования рыбки в Pascal можно использовать следующий код:

program Fish;
uses crt;
var
i, j: integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 10 do
begin
if (i = 1) or (i = 5) then
begin
if (j = 1) or (j = 10) then
write('#')
else if (j = 2) or (j = 9) then
write('/')
else
write('-');
end
else if i = 2 then
begin
if (j = 1) or (j = 2) then
write('#')
else if (j = 3) or (j = 8) then
write('/')
else if (j = 4) or (j = 7) then
write('>')
else
write('--');
end
else
begin
if (j = 1) or (j = 10) then
write('#')
else if (j = 2) or (j = 3) then
write('\\')
else if (j = 4) or (j = 7) then
write('<')
else
write('--');
end;
end;
writeln;
end;
readln;
end.

Этот код будет выводить на экран изображение рыбы:

##########
#/-----\#-
#>--\--<-#
#\------</
##########

Вы можете изменить размеры рыбы, меняя значения в циклах for i и for j.