Помогите пожалуйста по языку паскаля, завтра уже сдать надо.
1) Напишите программу, которая выводит код введенного пользователем символа.
Программа должна завершать свою работу в результате ввода, например точки.
2)Напишите программу, которая выводит на экран первую часть таблицы кодировки символов (от 0 до 127). Таблица должна состоять из восьми колонок и шестнадцати строк. В первой колонке должны быть символы с кодом от 0 до 15, во второй от 16 до 31 и т.д.

1 задача:program znan1;uses crt;var a:char;beginclrscr;readln(a);while a<>'.' dobeginwriteln(ord(a));readln(a);end;end.2 задача:program znan2;uses crt;var i,j:integer;beginfor i:=1 to 16 dobeginfor j:=1 to 8 dobeginwrite((i*j-1):5,'-',chr(i*j-1));end;writeln;end;readln;end.